home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / DemoVersion_Sources / Screen.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  1.4 KB  |  62 lines
  1. ;
  2. ; ***********************************
  3. ;
  4. ; Screen example file for PureBasic
  5. ;
  6. ;   © 1999 - Fantaisie Software -
  7. ;
  8. ; ***********************************
  9. ;
  10. ;
  11.  
  12. InitScreen(1) ; We will need 2 screens
  13.  
  14. If FindScreen(0,"") ; Find de default public screen
  15.  
  16.   Print("Screen address: ") : PrintNumberN(ScreenID())
  17.  
  18.   HideScreen() ; Hide it
  19.  
  20.   Delay(10)    ; Wait a little bit...
  21.  
  22.   ShowScreen() ; and show it !
  23.  
  24.   PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  25.  
  26.   PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  27.  
  28.   If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  29.  
  30.     Delay(50)
  31.  
  32.     CloseScreen(1)
  33.   EndIf
  34.  
  35.   UseScreen(0)
  36.  
  37.   a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  38.  
  39.   PrintN("Pure White colour found at colour: "+Str(a))
  40.  
  41.   ReleasePen(a)                     ; Release it to the system
  42.  
  43.   If FindScreen(1,"Workbench")      ; Find the WB Screen
  44.     PrintN("Workbench screen found !")
  45.     Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  46.     Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  47.  
  48.     Delay(10)                       ; Flash the workbench screen !
  49.     FlashScreen()
  50.   Else
  51.     PrintN("Workbench screen isn't found ?!")
  52.   Endif
  53.  
  54. EndIf
  55.  
  56. PrintN("Press the mouse to quit")
  57.  
  58. MouseWait()
  59.  
  60. End
  61.  
  62.